i:=6;
while i do s := s + i; i := i-1 od
